﻿Public Class BEcrioBox

#Region "Declaración de variables"

    Private codBox As Integer
    Private codCongelador As Integer
    Private codColumna As Integer
    Private codFila As Integer
    Private codPiso As Integer
    Private tipo As Char
    Private capacidad As Integer
    Private disponible As Integer 'preguntar
    Private nroFilas As Integer
    Private nroColumnas As Integer
    Private estado As Boolean

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodBox As Object, _
            ByVal pCodCongelador As Object, _
            ByVal pCodColumna As Object, _
            ByVal pCodFila As Object, _
            ByVal pCodPiso As Object, _
            ByVal pTipo As Object, _
            ByVal pCapacidad As Object, _
            ByVal pDisponible As Object, _
            ByVal pNroFilas As Object, _
            ByVal pNroColumnas As Object, _
            ByVal pEstado As Object)

        Me._codBox = pCodBox
        Me._codCongelador = pCodCongelador
        Me._codColumna = pCodColumna
        Me._codFila = pCodFila
        Me._codPiso = pCodPiso
        Me._tipo = pTipo
        Me._capacidad = pCapacidad
        Me._disponible = pDisponible
        Me._nroFilas = pNroFilas
        Me._nroColumnas = pNroColumnas
        Me._estado = pEstado

    End Sub

    Public Property _codBox() As Integer
        Get
            Return Me.codBox
        End Get
        Set(ByVal value As Integer)
            Me.codBox = value
        End Set
    End Property

    Public Property _codCongelador() As Integer
        Get
            Return Me.codCongelador
        End Get
        Set(ByVal value As Integer)
            Me.codCongelador = value
        End Set
    End Property

    Public Property _codColumna() As Integer
        Get
            Return Me.codColumna
        End Get
        Set(ByVal value As Integer)
            Me.codColumna = value
        End Set
    End Property

    Public Property _codFila() As Integer
        Get
            Return Me.codFila
        End Get
        Set(ByVal value As Integer)
            Me.codFila = value
        End Set
    End Property

    Public Property _codPiso() As Integer
        Get
            Return Me.codPiso
        End Get
        Set(ByVal value As Integer)
            Me.codPiso = value
        End Set
    End Property

    Public Property _tipo() As Char
        Get
            Return Me.tipo
        End Get
        Set(ByVal value As Char)
            Me.tipo = value
        End Set
    End Property

    Public Property _capacidad() As Integer
        Get
            Return Me.capacidad
        End Get
        Set(ByVal value As Integer)
            Me.capacidad = value
        End Set
    End Property

    Public Property _disponible() As Integer
        Get
            Return Me.disponible
        End Get
        Set(ByVal value As Integer)
            Me.disponible = value
        End Set
    End Property

    Public Property _nroFilas() As Integer
        Get
            Return Me.nroFilas
        End Get
        Set(ByVal value As Integer)
            Me.nroFilas = value
        End Set
    End Property

    Public Property _nroColumnas() As Integer
        Get
            Return Me.nroColumnas
        End Get
        Set(ByVal value As Integer)
            Me.nroColumnas = value
        End Set
    End Property

    Public Property _estado() As Boolean
        Get
            Return Me.estado
        End Get
        Set(ByVal value As Boolean)
            Me.estado = value
        End Set
    End Property
End Class
